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We introduce here some examples of VHDL based digital circuits design for 
Lab work. 


4-Bit Adder/Subtractor 


Bx A, B : A 2 B, A, Bo A 0 



--XOR gate VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity xor_gate is 
Port( A, B: in stdlogic; 

F: out std logic); 

End xor_gate; 

Architecture xorjbehav of xor_gate is 
Begin 

F<= AxorB; 

End xorjbehav; 

-Full adder VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity FA is 

Port( X, Y,Cin: in std_logic; 

Sum,Cout: out std_logic); 

End FA; 

Architecture FAJbehav of FA is 
Begin 

Sum <= (X xor Y) xor Cin; 
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Cout <= (X and Y) or( (X xor Y) and Cin); 

End FAJbehav; 

--Top level 4-bit AdderSubtractor 

Library ieee; 

Use ieee.std_logic_1164.all; 

Entity Addsub is 
Port( M: in stdlogic; 

A, B: in std_logic_vector(3 downto 0); 

Sum: out std_logic_vector(3 downto 0); 
Carry, V: out std_logic); 

End Addsub; 

Architecture Addsub_Sruct of Addsub is 
Component xor_gate is 
Port( A, B: in std logic; 

F: out std logic); 

End component; 

Component FA is 

Port( X, Y,Cin: in std_logic; 

Sum,Cout: out std logic); 

End component; 

Signal C :std_logic_vector(4 downto 1); 

Signal temp: std_logic_vector(3 downto 0); 

Begin 

XG1: xor_gate port map (M, B(0),temp(0)); 

XG2: xor_gate port map (M, B(l),temp(l)); 
XG3:xor_gate port map (M, B(2),temp(2)); 

XG4: xor_gate port map (M, B(3),temp(3)); 

FAO: FA port map (A(0), temp(0), M, Sum(0),C(l)); 
FA1: FA port map (A(l), temp(l), C(l), Sum(l),C(2)); 
FA2: FA port map (A(2), temp(2), C(2), Sum(2),C(3)); 
FA3: FA port map (A(3), temp(3), C(3), Sum(3),C(4)); 

V <= C(3) xor C(4); 

Carry <= C4; 

End Addsub_Struct; 
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4-to 1 Mux using If statement 

-Neglect enable input 

LIBRARY ieee; 

USE ieee.std_logic_1164 . ALL; 

ENTITY mux4_l IS 
PORT (sO 

si 
inO 
ini 
in2 
in3 

output 

) ; 

END mux4_l; 


IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
OUT STD_LOGIC 


ARCHITECTURE if_example OF mux4_l IS 
BEGIN 


mux: PROCESS (sO, si, inO, ini, in2, in3) 

BEGIN 

IF (s0='0' AND sl='0') THEN 


output <= inQ; 

ELSIF (s0='1' AND sl='0') THEN 

output <= ini; 

ELSIF ( s0= ' 0 ' AND sl='l') THEN 

output <= in2; 

ELSIF ( s0= ' 1 ' AND sl='l') THEN 

output <= in3; 

ELSE — (sO or si are not 0 or 1) 

output <= 'X'; 

END IF; 


END PROCESS mux; 


END if_examp1e; 



Select Input 


4-tol Mux using case statement 

LIBRARY ieee; 

USE ieee.std_logic_ll64 .ALL; -- Package declaration. 

ENTITY mux4_l IS 
PORT (sO 

si 
inO 
ini 
in2 
in3 


IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
IN STD_LOGIC 
IN STD LOGIC 
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output 

: OUT STD LOGIC 

) ; 

END mux4 1; 


ARCHITECTURE case_e 

xample OF mux4 1 IS 

BEGIN 


mux: PROCESS (sO, si. 

inO, ini, in2, in3) 

VARIABLE sel : 

STD LOGIC VECTOR(1 DOWNTO 0); 

BEGIN 


sel := si & sO; 

-- concatenate si and sO 

CASE sel IS 


WHEN "00" => 

output <= in 0; 

WHEN "01" => 

output <= ini; 

WHEN "10" => 

output <= in2; 

WHEN "11" => 

output <= ifi3; 

WHEN OTHERS => 

output <= 'X'; 

END CASE; 


END PROCESS mux; 


END case example; 



2-to 1 Mux using (with -select) statement 

library ieee; 

use ieee.std_logic_1164.all; 

entity mux_using_with is 
port ( 

din_0 :in std_logic; — Mux first input 

din_l :in std_logic; — Mux Second input 

sel :in std_logic; — Select input 

mux_out :out std_logic — Mux output 



architecture behavior of mux_using_with is 
begin 

with I sel) select 
mux_out <= din_0 when 'O', 

din_l when others; 

end architecture; 
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4 to 2 Encoder 

library IEEE; 

use IEEE.STD_LOGIC_1164.ALL; 
use IEEE.STD_LOGIC_ARITH.ALL; 

entity encod is 

Port ( a : in STD_LOGIC_VECTOR (3 downto 0); 
b : out STD_LOGIC_VECTOR (1 downto 0)); 
end encod; 

architecture Behavioral of encod is 
begin 
process(a) 
begin 

if(a(0)=T) then b<="00"; 
elsif(a(l)=T) then b<="01"; 
elsif(a(2)=T) then b<="10"; 
elsif(a(3)=T) thenb<="ll"; 
end if; 
end process; 
end Behavioral; 

16-to 4 Encoder - Using if-else Statement 


-- Design Name : encoder_using_if 
— File; Name : encoder_using_if.vhd 


library ieee; 

use ieee.std_logic_1164.all; 

entity encoder_using_if is 
port ( 

enable :in std_logic; — Enable for the encoder 

encoder_in std_logic_vector (15 downto 0); -- 16-bit Jlliput 

binary_out :out std_logic_vector (3 downto 0) --4 bit binary 

Output 
) ; 

end entity; 

architecture behavior of encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '1') theft 


if 

(encoder in = X"0002") 

then 

binary 

out 

<= 

"0001" 

end 

if; 

if 

(encoder in = X"0004") 

then 

binary 

out 

<= 

"0010" 

end 

if; 

if 

(ercoder_in - X"0008") 

theft, 

binary 

_out 


"0011", 

; end 

if; 

if 

(encoder in = X"0010") 

then 

binary 

out 

<= 

"0100", 

; end 

if; 
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if 

(encoder 

in 

= X 

'0020") 

then 

binary 

out 

<= 

"0101" 

end 

if; 

if 

(encoder_ 

in 

= X 

'0040") 

thfeft. 

binary 

_out 

Mis 

"0110" 

end 

if; 

if 

(encoder_ 

in 

= X 

'0080") 

then 

binary 

_out 


"0111" 

end 

if; 

if 

(encoder 

in 

= X 

’0100") 

then 

binary 

out 

<= 

"1000" 

end 

if; 

if 

(encoder_ 

jaf 

= X 

'0200") 

theft 

binary 

_out 


"1001" 

end 

if; 

if 

(encoder 

in 

= X 

’0400") 

then 

binary 

out 

<= 

"1010" 

end 

if; 

if 

(encoder_ 

in 

y : X 

"0800") 

theft 

binary 

_out 


"1011" 

; end 

if; 

if 

(encoder_ 


= X 

"1000") 

theft. 

binary 

_out 


"1100" 

; end 

if; 

if 

(encoder 

in 

= X 

"2000") 

then 

binary 

out 

<= 

"1101" 

; end 

if; 

if 

(encoder_ 

in. 

= X 

"4000") 

theft 

binary 

_out 


"1110" 

; end 

if; 

if 

(encoder 

in 

= X 

"8000") 

then 

binary 

out 

<= 

"1111" 

; end 

if; 


end if; 
end process; 
end architecture; 


16 to 4 Encoder - Using case Statement 


— Design Name : encoder_using_case 
-- File Name : encoder_using_case.vhd 
: — Function 'i Encoder using Case 


library ieee; 

use ieee.std_logic_1164.all; 


entity encoder_using_case is 


port ( 




enable 

:in std logic; 

Enable 

for the encoder 

encoder_in 

atd_logic_vector 

(15 downto 0); — 

16-bit Input 

binary out 

Output 

:out std logic vector 

(3 downto 0) 

4 bit binary 


) ; 

end entity; 


architecture behavior of encoder_using_case is 


begin 

process 

if 


(enable, encoder_in) begin 
(enable = '1') then 
case (encoder in) is 


when X"0002" 
when X"0004" 
when X"0008" 
when X"0010" 
when X"0020" 
when X"0040" 
when X"0080" 
when X"0100" 
when X"0200" 
when X"0400" 
when X"0800" 
when X"1000" 
when X"2000" 
when X"4000" 


=> binary_ouf. 
=> binary_out 
=> binary_out 
=> binary_out 
=> binary_out 
=> binary_oui|' 
=> binary_out 
=> binary_out 
=> binary_out 
=> binary_ouf- 
=> binary_oufc 
=> binary_out 
=> binary_out 
=> binary_out 


" 0001 " 

"0010" 

"0011" 

"0100" 

"0101" 

"0110" 

" 0111 " 

"1000" 

"1001" 

"1010" 

" 1011 " 

"1100" 

" 1101 " 

" 1110 " 
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16-to 4 Priority-Encoder - Using if-else Statement 



-- Design Name : pri encoder 

using if 



—encoder_in(0) has the highest proirity 



library ieee; 




use ieee.std_logic_1164.all; 



entity pri encoder using if is 



port ( 




enable :in std logic; 

Enable 

for the encoder 

encoder i-n :in std logic vector (15 downto 

0); — 

16-bit Input. 

binary out :out std logic vector (3 downto 

0) 

4 bit binary 

Output 




end entity; 




architecture behavior of pri 

encoder using if is 



begin 




process (enable, encoder 

in) begin 



binary out <= "0000"; 




if (enable = '1') then 



if (encoder in 

'xxxxxxxxxxxxxxxi") then 


binary out <= 

’0000"; 



if (encoder in = 

'XXXXXXXXXXXXXXl0") then 


binary out <= 

"0001"; 



elsif (encoder in 

= "XXXXXXXXXXXXX100") 

then 


binary out <= 

"0010"; 



elsif (encoder in. 

= "XXXXXXXXXXXX1000") 

then 


binary out <= 

"0011"; 



elsif (encoder in 

= "XXXXXXXXXXX10000") 

then 


binary out <= 

"0100"; 



elsif (encoder itt 

= "XXXXXXXXXX100000") 

then 


binary out <= 

"0101"; 



elsif (encoder in 

= "XXXXXXXXX1000000") 

then 


binary out <= 

"0110"; 



elsif (encoder in 

= "XXXXXXXX10000000") 

then 


binary out <= 

"0111"; 



elsif (encoder in. 

= "XXXXXXX100000000") 

then 


binary out <= 

"1000"; 



elsif (encoder in 

= "XXXXXX1000000000") 

then 


binary out <= 

"1001"; 



elsif (encoder in 

= "XXXXX10000000000") 

then 


binary out <= 

"1010"; 



elsif (encoder in 

= "XXXX100000000000") 

then 


binary out <= 

"1011"; 



elsif (encoder in 

= "XXX1000000000000") 

then 


binary out <= 

"1100"; 



elsif (encoder in 

= "XX10000000000000") 

th@n 


binary out <= 

"1101"; 



elsif (encoder in 

= "X100000000000000") 

then 


binary out <= 

"1110"; 



elsif (encoder itt 

= "1000000000000000") 

then 


binary_out <= 

"1111"; 



Instructor Dr. Mahmoud Alshewimy 


































-11- 


ty decode_2to4_to 


. : ijr STD_L0GIC_V£CT0R (1 downto 0) ; 

: out STD_LOGlCJffiCTOR (3 downto 0); 
iN : in STD_LOGIC) ; 
to4_top; 


architecture Behavioral of decode_2to4_top is 
begin 

process (A, EN) 
begin 

X <= "0000"; — default output value 

if (EKr = '!') theft — active high enable pin 


when "00" => X(0) <= 
when "01" => X(l) <= 


when "ll" => X(3) <= '1'; 
when others => X <= "0000"; 


— 2-bit input 
-- 4-bit output 

— enable input 


4 to 16 Decoder - Using case Statement 

library ieee; 

use ieee.std_logic_1164.all; 

entity decoder_using_case is 
port ( 

in std_logic; — Enable for the decoder 

in std_logic_vector (3 downto 0); -- 4-bit Input 
out std_logic_vector (15 downto 0) -- 16-bit Output 


architecture behavior of decoder_using_case is 
begin 

process (enable, binary_in) begin 
decoder_out <= X"0000"; 
if (enable = '1') then 
case (binary_in) is 

when X"0" => decoder_out <= X"0001" 

when X"l" => decoder_out <= X"0002" 

wh@n X"2" => decoder_out <= X"0004" 

when X"3" => decoder_out <= X"0008" 

when X"4" => decoder_out <= X"0010" 

when X"5" => decoder_out <= X"0020" 

when X"6" => decoder_out <= X"0040" 

when X"7" => decoder_out <= X"0080" 

when X"8" => decoder_out <= X"0100" 

when X"9" => decoder_out <= X"0200" 

when X"A" => decoder_out <= X"0400" 
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when X"B" 
when X"C" 
when X"D" 
when X"E" 
when X"F" 
when others 
end case; 
end if; 
end process; 
end architecture; 


decoder_out 

decoder_out 

decoder_out 

decoder_out 

decoder_out 

decoder_out 


<= X"0800" 
<= X"1000" 
<= X"2000" 
<= X"4000" 
<= X"8000" 
<= X"0000" 


4 to 16 Decoder using (with-select) statement 


— Design Name : decoder_usi.r.g_wi th 

-- File Name : decoder_using_with.vhd 

— Function : decoder using with-select 


library ieee; 

use ieee.std_logic_1164.all; 

entity decoder_using_select is 
port ( 

enable :in std_logic; — Enable for the decoder 

binary_in :in std_logic_vector (3 downto 0); -- 4-bit input 

decoder_out :out std_logic_vector (15 downto 0) — 16-bit output 

) ; 

end entity; 

architecture behavior of decoder_using_select is 


begin 

with (binary_in) select 

decoder_out <= X"0001" when 
X"0002" when 
X"0004" wheh- 
X"0008" when 
X"0010" when 
X"0020" when. 
X"0040" when 
X"0080" when 
X"0100" when 
X"0200" when 
X"0400" when 
X"0800" when 
X"1000" when 
X"2000" when 
X"4000" when 
X"8000" when 
X"0000" when 


end architecture; 


X"0", 
X"l", 
X"2 ", 
X"3", 
X"4", 
X"5", 
X" 6", 
X"7", 
X"8", 
X" 9", 
X"A", 
X"B", 
X"C", 
X"D", 
X"E", 
X"F", 
others, 
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A Flip-flop is the basic element which is used to store information of one bit. Flip- 
flops have their content change either at the rising or falling edge of the enable 
signal(usually the controlling clock signal). 

There are basically four main types of flip-flops: 

1. SR Flip-flop 

2. D Flip-flop 

3. JK Flip-flop 

4. T Flip-flop. 


1. SR FLIP-FLOP VHDL Code : 

A SR flip flop used in digital electronics will provide the results in a similar 
manner to the JK flip flop and this is the reason why the vhdl codes for 
these two flipflops are similar in nature. 

Given below is a behavioral approach of writing the code for a SR Flip-flop. 


CLR 



library ieee; 

use ieee. std_logic_l 164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 
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entity SR-FF is 

PORT( S,R,CLOCK,CLR,PRESET: in stdjogic; 

Q, QBAR: out stdjogic); 

end SR-FF; 

Architecture behavioral of SR-FF is 
begin 

PI: PROCESS(CLOCK,CLR,PRESET) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRESET= V')then 
x: = 7 

elsif(CLOCK= T ’ and CLOCKFVENT) then 

if(S='0' and R='0 ')then 
x: =x; 

elsif(S= T' and R='l ')then 
x:='Z'; 

elsif(S= 'O' and R='l ')then 
x:='0'; 

else 
x: = 7 

end if; 
end if; 

Q<=x; 

QBAR<=not x; 
end PROCESS; 
end behavioral; 

2. D FLIP-FLOP VHDL Code : 

A D flip flop or Delay flip flop gives the same output as the input provided 
and thus the vhdl code is much simpler. 
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Given below is a behavioral approach of writing the vhdl code for a D Flip- 
flop. 



RST 



D 



FLIP-FLOP 

> 

Q 




library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. stdJ.ogic__unsigned.all; 

entity D-FF is 

PORT( D,CLK,RST: in stdjogic; 

Q: out stdjogic); 

end D-FF; 

architecture behavioral of D-FF is 
begin 

PL' process(RST,CLK) 
begin 

if(RST='F)then 

Q<='0'; 

elsif(CLK= 7 ' and CLK'EVENT) then 
Q<=D; 

end if; end process; 
end behavioral; 
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3. JK FLIP-FLOP VHDL Code : 

Given below is a behavioral approach of writing the code for a JK Flip-flop. 


CLR 



library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity JK-FF is 

PORT( J,K,CLK,PRST,CLR: in stdjogic; 

Q, QB: out stdjogic); 

end JK-FF; 

Architecture behavioral of JK-FF is 
begin 

PI: PROCESS(CLK,CLR,PRST) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRST=’0')then 
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x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(J='0' and K='0')then 
x:=x; 

elsif(J=T and K=T)then 
x:= not x; 

elsif(J='0' and K='l')then 
x:='0'; 

else 

x 

end if; 
end if; 

Q<=x; 

QB<=not x; 
end PROCESS; 
end behavioral; 


4. T FLIP-FLOP VHDL Code : 

The T in a t flip flop stands for toggle and this is exactly what this digital 
component does. It simply toggles the value of a particular input. A basic 
not gate will solve the problem in the vhdl code for this element. 

Given below is a behavioral approach of writing the code for a T Flip-flop. 
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library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity T-FF is 

PORT( T,CLK,PRST,RST: in stdjogic; 

Q: out stdjogic); 

end T-FF; 

architecture behavioral of T-FF is 
begin 

PI: process(CLK,PRST,RST) 
variable x: stdjogic; 
begin 

if(RST='0') then 
x:='0'; 

elsif(RST=T and PRST='0’) then 
x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(T='l ')then 

x:= not x; 

end if; 
end if; 

Q<=x; 

end process; 
end behavioral; 
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library ieee; 

use ieee. std_logic_1164 . a||£.f 


entity dlatch_reset is 
port ( 


in std_logic; 
ip. std_logic; 
ip std_logic; 
out std_logic 


) ; 

end entity; 


Data input 
Bpable input 
Reset input 
Q output 


architecture rtl of dlatch_reset is 


begin 

process (en, reset, 
if (reset = 'O' 
q <= 'O'; 
elsif (en = '1' 
q <= data; 

else 

null; 


data) begip 
< ISherf 

; "then 


end if; 
end process; 


end architecture; 


8-bit Parallel to Serial converter 

-- Description 

-- Implements a simple 8-bit parallel to serial converter in VHDL. 
library ieee; 

use ieee.std_logic_1164.all ; 
entity PAR2SER is 

port (DIN : in std_logic_vector (7 downto 0); — input register 
MODE : in std_logic_vector (1 downto 0); -- mode selection 
CLK, RESET : in std_logic; — clock and reset 
SDOUT : out std_logic); -- output data 
end PAR2SER; 

-- purpose: Implement main architecture of PAR2SER 
architecture BEHAVIOR of PAR2SER is 

signal IDATA : std_logic_vector(7 downto 0); -- internal data 
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begin — BEHAVIOR 

— purpose: Main process 
process (CLK, RESET) 
begin -- process 

-- activities triggered by asynchronous reset (active high) 

.If RESET = ' 1' then 
SDOUT <= 'O'; 

IDATA <= "00000000"; 

-- activities triggered by rising edge of clock 
elsif CLK'event and CLK = '1' then 

case MODE is 

when "00" => -- no operation 
null; 

when "01" => load operation 
IDATA <= DIN; 

when "10" => -- shift left 
SDOUT <= IDATA(7); 
for mloop in 6 downto 0 loop 
IDATA(mloop+1) <= IDATA(mloop); 
end loop; -- mloop 

when others => -- no operation otherwise 
null; 


end if; 
end process; 
end BEHAVIOR; 


BCD to 7-Seg Decoder 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE.std_logic_unsigned.all; 
entity DISPLAY_DECODER is 

port ( VALUE : in bit_vector(3 downto 0); -- Bit 3 is MSB 
ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); -- 7 bit signal 
ZERO_BLANK_OUT: out bit); 
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end DISPLAY_DECODER; 

architecture BEHAVIOUR of DISPLAY_DECODER is 
begin 

process (VALUE, ZERO_BLANK) ~ sensitivity list 
begin 

case VALUE is -- case-when statement described how decode is 
- driven based on the value of the input, 
when "0000" => if ZERO_BLANK=T then 
DISPLAY <= "0000000"; 

ZERO_BLANK_OUT<=T; 

else 

DISPLAY <= "1111110"; 
end if; 

when "0001" => DISPLAY <= "0110000"; 
when "0010" => DISPLAY <= "1101101"; 
when "0011" => DISPLAY <= "1111001"; 
when "0100" => DISPLAY <= "0110011"; 
when "0101" => DISPLAY <= "1011011"; 
when "0110" => DISPLAY <= "1011111"; 
when "0111" => DISPLAY <= "1110000"; 
when "1000" => DISPLAY <= "1111111"; 

when OTHERS => DISPLAY <= "1001111"; - when others, an error is specified 
end case; 
end process; 
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end BEHAVIOUR; 

Test bench 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE.std_logic_unsigned.all; 
entity DISPLAY_DECODER_TB is 
end DISPLAY_DECODER_TB; 

architecture ARC_DISPLAY_DECODER_TB of DISPLAY_DECODER_TB is 

signal VALUE : bit_vector(3 downto 0); 

signal ZERO_BLANK : bit; 

signal DISPLAY : bit_vector(6 downto 0); 

signal ZERO_BLANK_OUT : bit; 

component DISPLAY_DECODER 

port ( VALUE : in bit_vector(3 downto 0); 

ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); 

ZERO_BLANK_OUT : out bit); 

end component; 

begin 

INPUT_VALUES: process 
begin 

ZERO_BLANK <= '1'; 

VALUE <= "0000"; 
wait for 5 ns; 
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ZERO_BLANK <= 'O'; 

VALUE <= "0000"; 
wait for 7 ns; 

ZER0_BLANK<='1'; 

VALUE <= "0010"; 
wait for 12 ns; 

ZERO_BLANK <= 'O'; 

VALUE <= "0100"; 
wait for 12 ns; 

ZERO_BLANK <= 'O'; 

VALUE <= "0110"; 
wait for 7 ns; 

end process INPUT_VALUES; 

Ul: DISPLAY_DECODER 

port map(VALUE, ZERO_BLANK, DISPLAY, ZERO_BLANK_OUT); 
end ARC_DISPLAY_DECODER_TB; 

configuration CFG_DISPLAY_DECODER of DISPLAY_DECODER_TB is 

for ARC_DISPLAY_DECODER_TB 

for Ul:DISPLAY_DECODER use entity 

work.DISPLAY_DECODER(BEHAVIOUR); 

end for; 

end for; 

end CFG_DISPLAY_DECODER; 
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A comparator circuit 

library ieee; 

use ieee.std_logic_1164.a|jfcf 


entity Comparator is 

port( A: in std_logic_vector(2 downto 0) ; 

Sf: in std_logic_vector (2 downto 0) ; 

less: out std_logic; 

equal: out std_logic; 

greater: out std_logic 

) ; 

end Comparator; 


architecture behv of Comparator is 
begin 

process(A,B) 
begin 

if (A<B) then 
less <= '1' ; 
equal <= 'O'; 
greater <= 'O'; 
elsif (A=B) then, 
less <= 'O'; 
equal <= '1'; 
greater <= 'O'; 

else 

less <= 'O'; 
equal <= '0 ' ; 
greater <= '1' ; 
end if; 
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clear: in std_logic; 

Q: out std_logic_vector (1 downto 0) 

) ; 

end reg; 


architecture behv of reg is 

signal Q_tmp: std_logic_vector(1 downto 0); 
begin 

process(I, clock, load, clear) 
begin 

if clear = 'O' then 

— use 'range in signal assigment 
Q_tmp <= "00"; 

elsif (clock='l' and clock'event) then 
if load = '1' then 
Q_tmp <= I; 
end if; 
end if; 

end process; 

— concurrent statement 
Q <= Q_tmp; 

end behv; 


Shift registers 

— 3-bit Shift-Register/Shifter 
-- reset is ignored in this code 

library ieee ; 

use ieee.std_logic_ll64.all; 


entity shift_reg is 
port( I: ’ 

clock: 
shift: 

Q: 

) ; 

end shift_reg; 


is. std_logic; 
in std_logic; 
■ pgb std_logic; 
out std_logic 


architecture behv of shift_reg is 

— initialize the declared signal 

signal S: std_logic_vector(2 downto 0):="111"; 

begin 
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— concurrent assignment statement 
Q <= Pre_Q; 


end behv; 
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